preschool_recat

R Markdown

This is an R Markdown document. Markdown is a simple formatting syntax for authoring HTML, PDF, and MS Word documents. For more details on using R Markdown see http://rmarkdown.rstudio.com.

When you click the Knit button a document will be generated that includes both content as well as the output of any embedded R code chunks within the document. You can embed an R code chunk like this:

data <- read.csv("preschool_assessment.csv")

Including Plots

You can also embed plots, for example:

n_distinct(data$RequiredAssessmentforpreK)

## [1] 27

unique(data$RequiredAssessmentforpreK)

##  [1] "Multiple Assessments"                                                                   
##  [2] NA                                                                                       
##  [3] "Work Sampling System"                                                                   
##  [4] "Desired Results Developmental Profile (DRDP)"                                           
##  [5] "Georgia Pre-K Child Assessment"                                                         
##  [6] "Required assessment instruments are determined locally"                                 
##  [7] "Developing Skills Checklist"                                                            
##  [8] "Preschool Exit Observational Assessment"                                                
##  [9] "Performance-based assessment"                                                           
## [10] "New Mexico PreK Observational Assessment "                                              
## [11] "Kindergarten Readiness Assessment-Literacy"                                             
## [12] "Phonological Awareness Literacy Screening (PALS)"                                       
## [13] "Online assessment for Creative Curriculum"                                              
## [14] "Get it; Got it; Go!"                                                                    
## [15] "Creative Curriculum Developmental Continuum"                                            
## [16] "Teaching Strategies GOLD"                                                               
## [17] "Early Learning Scale (ELS)"                                                             
## [18] "Voluntary Prekindergarten (VPK) Assessment"                                             
## [19] "Kansas Early Learning Inventory for Fours (KELI-4) "                                    
## [20] "Pearson Work Sampling Online System Georgia Kindergarten Inventory of Developing Skills"
## [21] "ISTAR-KR"                                                                               
## [22] "Early Learning Assessment"                                                              
## [23] "mCLASS CIRCLE"                                                                          
## [24] "Indiana Standards Tool for Alternate Reporting of Kindergarten Readiness"               
## [25] "Mississippi State Kindergarten Readiness Assessment"                                    
## [26] "Brigance"                                                                               
## [27] "Growth Portfolio Model"

# Function to categorize assessments
categorize_assessment <- function(assessment) {
  direct <- c("Kindergarten Readiness Assessment-Literacy", "Phonological Awareness Literacy Screening (PALS)", 
              "Get it; Got it; Go!", "Voluntary Prekindergarten (VPK) Assessment", 
              "Pearson Work Sampling Online System Georgia Kindergarten Inventory of Developing Skills",
              "ISTAR-KR", "Mississippi State Kindergarten Readiness Assessment", "Brigance")
  observation_based <- c("Work Sampling System", "Desired Results Developmental Profile (DRDP)", 
                         "Georgia Pre-K Child Assessment", "Developing Skills Checklist", 
                         "Preschool Exit Observational Assessment", "New Mexico PreK Observational Assessment",
                         "Creative Curriculum Developmental Continuum", "Teaching Strategies GOLD",
                         "Early Learning Scale (ELS)", "Kansas Early Learning Inventory for Fours (KELI-4)",
                         "Early Learning Assessment", "Growth Portfolio Model")
  combined <- c("Multiple Assessments", "Required assessment instruments are determined locally",
                "Performance-based assessment", "Online assessment for Creative Curriculum", 
                "mCLASS CIRCLE", "Indiana Standards Tool for Alternate Reporting of Kindergarten Readiness")

  if (assessment %in% direct) {
    return("Direct")
  } else if (assessment %in% observation_based) {
    return("Observation-Based")
  } else if (assessment %in% combined) {
    return("Combined")
  } else {
    return("No Assessment")
  }
}
data$PrekAssessment <- sapply(data$RequiredAssessmentforpreK, categorize_assessment)

write.csv(data, "PreK_recat.csv", row.names=FALSE)

library(ggplot2)

p <- ggplot(data, aes(x=PrekAssessment)) +
        geom_bar() +
        facet_wrap(~Year) +
        theme_minimal() +
        theme(axis.text.x = element_text(angle = 45, hjust = 1)) +  # Rotate x-axis labels
        xlab("Pre-K Assessment") +
        ylab("Count") +
        ggtitle("Count of Pre-K Assessment Types by Year")
p

states <- unique(data$State)

# Loop through each state and create a plot
for (state in states) {
    # Filter the data for the current state
    state_data <- data[data$State == state, ]

    # Create the plot
    q <- ggplot(state_data, aes(x=Year, fill=PrekAssessment)) +
        geom_bar() +
        theme_minimal() +
        xlab("Year") +
        ylab("Count of Assessments") +
        ggtitle(paste("Annual Pre-K Assessment Counts in", state)) +
        theme(axis.text.x = element_text(angle = 45, hjust = 1))  # Rotate x-axis labels

    print(q)
}